home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Deneba / US English / Canvas™ 3.5-68K / Canvas Tools / Separations / Separations.rsrc / hd11_1100 < prev    next >
Text File  |  1994-09-29  |  717b  |  45 lines
  1. %%BeginProcSet: Adobe_packedarray 0 0
  2. % packedarray Operators
  3. % Version 1.0 5/9/1988
  4. % Copyright (C) 1987, 1988
  5. % Adobe Systems Incorporated
  6. % All Rights Reserved
  7. userdict /Adobe_packedarray 5 dict dup begin put
  8. /initialize            % - initialize -
  9. {
  10. /packedarray where
  11.     {
  12.     pop
  13.     }
  14.     {
  15.     Adobe_packedarray begin
  16.     Adobe_packedarray
  17.         {
  18.         dup xcheck
  19.             {
  20.             bind
  21.             } if
  22.         userdict 3 1 roll put
  23.         } forall
  24.     end
  25.     } ifelse
  26. } def
  27. /terminate            % - terminate -
  28. {
  29. } def
  30. /packedarray        % arguments count packedarray array
  31. {
  32. array astore readonly
  33. } def
  34. /setpacking            % boolean setpacking -
  35. {
  36. pop
  37. } def
  38. /currentpacking        % - setpacking boolean
  39. {
  40. false
  41. } def
  42. currentdict readonly pop end
  43. %%EndProcSet
  44. Adobe_packedarray /initialize get exec
  45.